home *** CD-ROM | disk | FTP | other *** search
/ SGI Developer Toolbox 6.1 / SGI Developer Toolbox 6.1 - Disc 4.iso / src / apps / ibrowse / open_script < prev    next >
Encoding:
Text File  |  1994-08-02  |  1.3 KB  |  65 lines
  1. #! /bin/csh
  2. #
  3. # Script to execute when the icon for an SGI-type image is double-clicked
  4. # in ibrowse.  To set it up, type
  5. #     setenv IBROWSE_SGI_OPEN <path>/open_script
  6. # where <path> is the full path name to the file, before running ibrowse.
  7. #
  8. # 11/30/93
  9. #
  10.  
  11. set filename = ${IBROWSE_CUR_DIR}/${IBROWSE_NAME}
  12.  
  13. # Choose action based on which modifier keys are pressed.
  14. switch ( ${IBROWSE_MODIFIERS} )
  15.  
  16. case 0:
  17.     # Get the dimensions of the image. Use ipaste unless image is larger than
  18.     # screen size, in which case use scope.
  19.     #
  20.     set s = `/usr/sbin/istat $filename | tail -1`
  21.     set xsize = $s[1]
  22.     set ysize = $s[2]
  23.     if ( $xsize > 1280 || $ysize > 1024 ) then
  24.     /usr/sbin/scope $filename
  25.     else
  26.     /usr/sbin/ipaste $filename
  27.     breaksw
  28.  
  29. case 1:
  30. case 3:
  31. case 5:
  32. case 7:
  33.     # Shift-key and any other modifiers - Always use ipaste.
  34.     /usr/sbin/ipaste $filename
  35.     breaksw
  36.  
  37. case 2:
  38. case 6:
  39.     # Ctrl-key (and possibly Alt-key) - Always use scope.
  40.     /usr/sbin/scope $filename
  41.     breaksw
  42.  
  43. case 4:
  44.     # Alt-key - Offer a menu.
  45.     set choice = `/usr/bin/X11/xconfirm -t "Please select an action:" -B Cancel -b Print -b Edit -icon question`
  46.  
  47.     switch ( $choice )
  48.     case Edit:
  49.     /usr/sbin/imgworks $filename
  50.     breaksw
  51.  
  52.     case Print:
  53.     /usr/bin/lp $filename
  54.     breaksw
  55.  
  56.     case Cancel:
  57.     breaksw
  58.  
  59.     endsw
  60.     breaksw
  61.  
  62. default:
  63.  
  64. endsw
  65.